home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / baud173c.zip / RSB4BAUD.MRG < prev   
Text File  |  1992-02-29  |  1KB  |  30 lines

  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW
  3. * RBBSSUB4.BAS:  Date 9-5-1991  Size 127450 bytes
  4. * ------------[ Created 02-29-1992 ]------------
  5. 60135 MetaVal$ = MID$(Strng$,WasX+1,WasY-WasX-1)
  6.       WasI = INSTR("      BAUD  CBAUD PORT  PORT# PARITYPROTO NODE  FILE  ",MetaVal$) ' RM022301
  7.       IF WasI = 0 OR LEN(MetaVal$) < 4 THEN _
  8.          WasY = WasX + 1 : _
  9.          GOTO 60131
  10.       WasJ = (WasI-1)\6 + 1
  11.       WasK = (WasI+4)\6 + 1
  12.       IF WasK > WasJ THEN _
  13.          EXIT SUB
  14.       ON WasJ GOTO 60155, _
  15.                 60137, _
  16.                 60138, _                                             ' RM022301
  17.                 60139, _
  18.                 60141, _
  19.                 60143, _
  20.                 60145, _
  21.                 60147, _
  22.                 60149, _
  23.                 60151
  24. 60137 WorkHold$ = ZTalkToModemAt$
  25.       GOTO 60151
  26. 60138 WorkHold$ = ZCBaud$                                            ' RM022301
  27.       GOTO 60151                                                     ' RM022301
  28. 60139 WorkHold$ = ZComPort$
  29.       GOTO 60151
  30.